rep_in_one <- function(str = "", times = 0){
  if(times > 0){
    out <- ""
    for(i in 1:times){
      out <- paste(out, str, sep = "")
    }
    return(out)
  }else{
    return("")
  }
}

#### TEST AREA ####
# rep_in_one(".0", 10)
